home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
prgtools
/
euphor13.zip
/
BUZZ.EX
< prev
next >
Wrap
Text File
|
1994-04-05
|
2KB
|
89 lines
-- Buzzword Generator
-- Add your own phrases!
constant leadins = {
"Unfortunately",
"In the final analysis,",
"For all intents and purposes",
"We may definitely conclude that",
"Leading industry analysts agree that",
"Therefore",
"Without a doubt",
"According to the National Enquirer,",
"It is rumoured that"
}
constant subjects = {
"Bill Clinton",
"shareware",
"The North American Free Trade Deal",
"C++",
"IBM",
"multimedia PCs",
"local bus video",
"fax modems",
"Euphoria",
"Rapid Deployment Software",
"Bill Gates",
"Microsoft",
"the Pentium processor",
"pen-based computing",
"the promised land of 21st century computing",
"RISC machines",
"object-oriented technology",
"case tools",
"Windows",
"lap top computers",
"notebook computers",
"the Information Super Highway"
}
constant verbs = {
"will no longer support",
"can save",
"will nibble away at the installed base of",
"will be the downfall of",
"will lead the way to",
"will be like a cancerous growth in",
"will destroy",
"will make a mockery of",
"will not be compatible with",
"will be a great embarassment to"
}
function buzz(integer n)
-- generate a paragraph containing n sentences of pure nonsense
sequence paragraph
paragraph = ""
for i = 1 to n do
paragraph = paragraph &
leadins [rand(length(leadins))] & " " &
subjects[rand(length(subjects))] & " " &
verbs [rand(length(verbs))] & " " &
subjects[rand(length(subjects))] & ". "
end for
return paragraph
end function
procedure display(sequence paragraph)
-- neatly display a paragraph
integer column
column = 1
for i = 1 to length(paragraph) do
puts(1, paragraph[i])
column = column + 1
if column > 65 and (paragraph[i] = ' ' or paragraph[i] = '-') then
puts(1, '\n')
column = 1
end if
end for
end procedure
puts(1, "\n\t\tComputer Industry Forecast\n")
puts(1, "\t\t--------------------------\n\n")
display(buzz(8))
puts(1, "\n\n")